COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION X(100),Y(100)
C00003 ENDMK
C⊗;
	DIMENSION X(100),Y(100)
1	FORMAT(' TYPE X AND Y COORDS. 999=DONE  '$)
3	FORMAT(' TYPE ROTATION ANGLE.  '$)
4	FORMAT(4F)

2	TYPE 1
	ACCEPT 4,A,B
	IF(A.EQ.999)GO TO 5
	J=A
	K=B
	IF(N.GT.0)GO TO 6
	CALL DPYSET(




	SUBROUTINE ROTATE(X,Y,N,CX,CY,ANGLE)
	DIMENSION X(1),Y(1)
	THETA=ANGLE*6.2831853/360.
	DO 1 I=1,N
	A=X(I)-CX
	B=Y(I)-CY
	X(I)=A*COS(THETA)-B*SIN(THETA) + CX
1	Y(I)=A*SIN(THETA)+B*COS(THETA) + CY
	RETURN
	END